home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / General Mu229157162001.psc / Keyboard / DirectInput_KeyBoard_Form.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-02-28  |  36.4 KB  |  1,161 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  4. Begin VB.Form Form1 
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    ClientHeight    =   1350
  7.    ClientLeft      =   45
  8.    ClientTop       =   45
  9.    ClientWidth     =   6390
  10.    ControlBox      =   0   'False
  11.    Icon            =   "DirectInput_KeyBoard_Form.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1350
  16.    ScaleWidth      =   6390
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Visible         =   0   'False
  20.    Begin VB.Frame Frame1 
  21.       Height          =   1215
  22.       Left            =   120
  23.       TabIndex        =   6
  24.       Top             =   0
  25.       Width           =   6135
  26.       Begin VB.TextBox Text10 
  27.          Height          =   285
  28.          Left            =   4680
  29.          TabIndex        =   44
  30.          Text            =   "0"
  31.          Top             =   960
  32.          Visible         =   0   'False
  33.          Width           =   1215
  34.       End
  35.       Begin VB.ComboBox Combo1 
  36.          Height          =   315
  37.          ItemData        =   "DirectInput_KeyBoard_Form.frx":0ECA
  38.          Left            =   4800
  39.          List            =   "DirectInput_KeyBoard_Form.frx":0EE9
  40.          TabIndex        =   42
  41.          Top             =   4560
  42.          Visible         =   0   'False
  43.          Width           =   855
  44.       End
  45.       Begin VB.CommandButton Command3 
  46.          Caption         =   "Set Vol"
  47.          BeginProperty Font 
  48.             Name            =   "MS Sans Serif"
  49.             Size            =   8.25
  50.             Charset         =   0
  51.             Weight          =   700
  52.             Underline       =   0   'False
  53.             Italic          =   0   'False
  54.             Strikethrough   =   0   'False
  55.          EndProperty
  56.          Height          =   375
  57.          Left            =   4800
  58.          TabIndex        =   41
  59.          ToolTipText     =   "To Select The Volume Control, If (+ and --)  Not Works Properly"
  60.          Top             =   4560
  61.          Width           =   855
  62.       End
  63.       Begin VB.Timer Timer2 
  64.          Left            =   240
  65.          Top             =   240
  66.       End
  67.       Begin VB.Timer Timer1 
  68.          Interval        =   1500
  69.          Left            =   480
  70.          Top             =   480
  71.       End
  72.       Begin VB.FileListBox File1 
  73.          Height          =   2430
  74.          Left            =   5880
  75.          TabIndex        =   39
  76.          Top             =   1440
  77.          Visible         =   0   'False
  78.          Width           =   1815
  79.       End
  80.       Begin VB.CommandButton Command301 
  81.          Caption         =   "Command3"
  82.          Height          =   615
  83.          Left            =   5760
  84.          TabIndex        =   38
  85.          Top             =   2640
  86.          Visible         =   0   'False
  87.          Width           =   975
  88.       End
  89.       Begin VB.CommandButton Command101 
  90.          Caption         =   "Command3"
  91.          Height          =   495
  92.          Left            =   5880
  93.          TabIndex        =   37
  94.          Top             =   2520
  95.          Visible         =   0   'False
  96.          Width           =   975
  97.       End
  98.       Begin VB.DriveListBox Drive1 
  99.          Height          =   315
  100.          Left            =   5760
  101.          TabIndex        =   36
  102.          Top             =   3000
  103.          Visible         =   0   'False
  104.          Width           =   1335
  105.       End
  106.       Begin VB.DirListBox Dir1 
  107.          Height          =   2115
  108.          Left            =   5880
  109.          TabIndex        =   35
  110.          Top             =   2880
  111.          Visible         =   0   'False
  112.          Width           =   855
  113.       End
  114.       Begin VB.CommandButton Command304 
  115.          Caption         =   "CClose"
  116.          Height          =   495
  117.          Left            =   5640
  118.          TabIndex        =   34
  119.          Top             =   2040
  120.          Visible         =   0   'False
  121.          Width           =   1215
  122.       End
  123.       Begin VB.CommandButton Command303 
  124.          Caption         =   "COpen"
  125.          Height          =   375
  126.          Left            =   5760
  127.          TabIndex        =   33
  128.          Top             =   1440
  129.          Visible         =   0   'False
  130.          Width           =   1095
  131.       End
  132.       Begin VB.CommandButton Command2 
  133.          Caption         =   "Hide"
  134.          BeginProperty Font 
  135.             Name            =   "MS Sans Serif"
  136.             Size            =   8.25
  137.             Charset         =   0
  138.             Weight          =   700
  139.             Underline       =   0   'False
  140.             Italic          =   0   'False
  141.             Strikethrough   =   0   'False
  142.          EndProperty
  143.          Height          =   375
  144.          Left            =   4800
  145.          TabIndex        =   1
  146.          Top             =   5280
  147.          Width           =   855
  148.       End
  149.       Begin VB.CommandButton Command1 
  150.          Caption         =   "Edit"
  151.          Default         =   -1  'True
  152.          BeginProperty Font 
  153.             Name            =   "MS Sans Serif"
  154.             Size            =   8.25
  155.             Charset         =   0
  156.             Weight          =   700
  157.             Underline       =   0   'False
  158.             Italic          =   0   'False
  159.             Strikethrough   =   0   'False
  160.          EndProperty
  161.          Height          =   375
  162.          Left            =   4800
  163.          TabIndex        =   2
  164.          Top             =   4920
  165.          Width           =   855
  166.       End
  167.       Begin VB.Label Label7 
  168.          BackStyle       =   0  'Transparent
  169.          Caption         =   "Device ID"
  170.          Height          =   255
  171.          Left            =   4800
  172.          TabIndex        =   43
  173.          Top             =   4320
  174.          Visible         =   0   'False
  175.          Width           =   855
  176.       End
  177.       Begin VB.Label Label6 
  178.          AutoSize        =   -1  'True
  179.          BackStyle       =   0  'Transparent
  180.          Caption         =   "General Multimedia KeyBoard"
  181.          BeginProperty Font 
  182.             Name            =   "MS Sans Serif"
  183.             Size            =   13.5
  184.             Charset         =   0
  185.             Weight          =   700
  186.             Underline       =   0   'False
  187.             Italic          =   0   'False
  188.             Strikethrough   =   0   'False
  189.          EndProperty
  190.          ForeColor       =   &H00404040&
  191.          Height          =   375
  192.          Left            =   980
  193.          TabIndex        =   40
  194.          Top             =   200
  195.          Width           =   4320
  196.       End
  197.       Begin VB.Label Label5 
  198.          AutoSize        =   -1  'True
  199.          BackStyle       =   0  'Transparent
  200.          Caption         =   "Program"
  201.          BeginProperty Font 
  202.             Name            =   "MS Sans Serif"
  203.             Size            =   8.25
  204.             Charset         =   0
  205.             Weight          =   700
  206.             Underline       =   0   'False
  207.             Italic          =   0   'False
  208.             Strikethrough   =   0   'False
  209.          EndProperty
  210.          Height          =   195
  211.          Left            =   2160
  212.          TabIndex        =   32
  213.          Top             =   1440
  214.          Width           =   705
  215.       End
  216.       Begin VB.Label Label4 
  217.          BackStyle       =   0  'Transparent
  218.          Caption         =   "Numeric Keypad"
  219.          BeginProperty Font 
  220.             Name            =   "MS Sans Serif"
  221.             Size            =   8.25
  222.             Charset         =   0
  223.             Weight          =   700
  224.             Underline       =   0   'False
  225.             Italic          =   0   'False
  226.             Strikethrough   =   0   'False
  227.          EndProperty
  228.          Height          =   495
  229.          Left            =   360
  230.          TabIndex        =   31
  231.          Top             =   1440
  232.          Width           =   855
  233.       End
  234.       Begin VB.Label Label404 
  235.          BackStyle       =   0  'Transparent
  236.          Caption         =   $"DirectInput_KeyBoard_Form.frx":0F08
  237.          BeginProperty Font 
  238.             Name            =   "MS Sans Serif"
  239.             Size            =   8.25
  240.             Charset         =   0
  241.             Weight          =   700
  242.             Underline       =   0   'False
  243.             Italic          =   0   'False
  244.             Strikethrough   =   0   'False
  245.          EndProperty
  246.          Height          =   1455
  247.          Left            =   240
  248.          TabIndex        =   30
  249.          Top             =   4680
  250.          Width           =   3975
  251.       End
  252.       Begin VB.Label Label209 
  253.          AutoSize        =   -1  'True
  254.          Caption         =   "Default Setting"
  255.          BeginProperty Font 
  256.             Name            =   "MS Sans Serif"
  257.             Size            =   8.25
  258.             Charset         =   0
  259.             Weight          =   700
  260.             Underline       =   0   'False
  261.             Italic          =   0   'False
  262.             Strikethrough   =   0   'False
  263.          EndProperty
  264.          Height          =   195
  265.          Left            =   1440
  266.          TabIndex        =   29
  267.          Top             =   4440
  268.          Width           =   1290
  269.       End
  270.       Begin VB.OLE OLE1 
  271.          Height          =   495
  272.          Left            =   5520
  273.          TabIndex        =   28
  274.          Top             =   0
  275.          Visible         =   0   'False
  276.          Width           =   495
  277.       End
  278.       Begin VB.Label Label3 
  279.          AutoSize        =   -1  'True
  280.          BackStyle       =   0  'Transparent
  281.          Caption         =   "CopyRight By General Corporation Bangladesh"
  282.          BeginProperty Font 
  283.             Name            =   "MS Sans Serif"
  284.             Size            =   8.25
  285.             Charset         =   0
  286.             Weight          =   700
  287.             Underline       =   0   'False
  288.             Italic          =   0   'False
  289.             Strikethrough   =   0   'False
  290.          EndProperty
  291.          Height          =   195
  292.          Left            =   960
  293.          TabIndex        =   27
  294.          Top             =   840
  295.          Width           =   3960
  296.       End
  297.       Begin VB.Label Label2 
  298.          AutoSize        =   -1  'True
  299.          BackStyle       =   0  'Transparent
  300.          Caption         =   "Version 3.0"
  301.          BeginProperty Font 
  302.             Name            =   "MS Sans Serif"
  303.             Size            =   8.25
  304.             Charset         =   0
  305.             Weight          =   700
  306.             Underline       =   0   'False
  307.             Italic          =   0   'False
  308.             Strikethrough   =   0   'False
  309.          EndProperty
  310.          Height          =   195
  311.          Left            =   2280
  312.          TabIndex        =   26
  313.          Top             =   600
  314.          Width           =   975
  315.       End
  316.       Begin VB.Label Label1 
  317.          AutoSize        =   -1  'True
  318.          Caption         =   "General Multimedia KeyBoard"
  319.          BeginProperty Font 
  320.             Name            =   "MS Sans Serif"
  321.             Size            =   13.5
  322.             Charset         =   0
  323.             Weight          =   700
  324.             Underline       =   0   'False
  325.             Italic          =   0   'False
  326.             Strikethrough   =   0   'False
  327.          EndProperty
  328.          Height          =   375
  329.          Left            =   960
  330.          TabIndex        =   25
  331.          Top             =   240
  332.          Width           =   4320
  333.       End
  334.       Begin VB.Label Label900 
  335.          AutoSize        =   -1  'True
  336.          BackStyle       =   0  'Transparent
  337.          Caption         =   "9>>>>"
  338.          BeginProperty Font 
  339.             Name            =   "MS Sans Serif"
  340.             Size            =   8.25
  341.             Charset         =   0
  342.             Weight          =   700
  343.             Underline       =   0   'False
  344.             Italic          =   0   'False
  345.             Strikethrough   =   0   'False
  346.          EndProperty
  347.          Height          =   195
  348.          Left            =   600
  349.          TabIndex        =   24
  350.          Top             =   3960
  351.          Width           =   540
  352.       End
  353.       Begin VB.Label Label800 
  354.          AutoSize        =   -1  'True
  355.          BackStyle       =   0  'Transparent
  356.          Caption         =   "8>>>>"
  357.          BeginProperty Font 
  358.             Name            =   "MS Sans Serif"
  359.             Size            =   8.25
  360.             Charset         =   0
  361.             Weight          =   700
  362.             Underline       =   0   'False
  363.             Italic          =   0   'False
  364.             Strikethrough   =   0   'False
  365.          EndProperty
  366.          Height          =   195
  367.          Left            =   600
  368.          TabIndex        =   23
  369.          Top             =   3720
  370.          Width           =   540
  371.       End
  372.       Begin VB.Label Label700 
  373.          AutoSize        =   -1  'True
  374.          BackStyle       =   0  'Transparent
  375.          Caption         =   "7>>>>"
  376.          BeginProperty Font 
  377.             Name            =   "MS Sans Serif"
  378.             Size            =   8.25
  379.             Charset         =   0
  380.             Weight          =   700
  381.             Underline       =   0   'False
  382.             Italic          =   0   'False
  383.             Strikethrough   =   0   'False
  384.          EndProperty
  385.          Height          =   195
  386.          Left            =   600
  387.          TabIndex        =   22
  388.          Top             =   3480
  389.          Width           =   540
  390.       End
  391.       Begin VB.Label Label600 
  392.          AutoSize        =   -1  'True
  393.          BackStyle       =   0  'Transparent
  394.          Caption         =   "6>>>>"
  395.          BeginProperty Font 
  396.             Name            =   "MS Sans Serif"
  397.             Size            =   8.25
  398.             Charset         =   0
  399.             Weight          =   700
  400.             Underline       =   0   'False
  401.             Italic          =   0   'False
  402.             Strikethrough   =   0   'False
  403.          EndProperty
  404.          Height          =   195
  405.          Left            =   600
  406.          TabIndex        =   21
  407.          Top             =   3240
  408.          Width           =   540
  409.       End
  410.       Begin VB.Label Label500 
  411.          AutoSize        =   -1  'True
  412.          BackStyle       =   0  'Transparent
  413.          Caption         =   "5>>>>"
  414.          BeginProperty Font 
  415.             Name            =   "MS Sans Serif"
  416.             Size            =   8.25
  417.             Charset         =   0
  418.             Weight          =   700
  419.             Underline       =   0   'False
  420.             Italic          =   0   'False
  421.             Strikethrough   =   0   'False
  422.          EndProperty
  423.          Height          =   195
  424.          Left            =   600
  425.          TabIndex        =   20
  426.          Top             =   3000
  427.          Width           =   540
  428.       End
  429.       Begin VB.Label Label400 
  430.          AutoSize        =   -1  'True
  431.          BackStyle       =   0  'Transparent
  432.          Caption         =   "4>>>>"
  433.          BeginProperty Font 
  434.             Name            =   "MS Sans Serif"
  435.             Size            =   8.25
  436.             Charset         =   0
  437.             Weight          =   700
  438.             Underline       =   0   'False
  439.             Italic          =   0   'False
  440.             Strikethrough   =   0   'False
  441.          EndProperty
  442.          Height          =   195
  443.          Left            =   600
  444.          TabIndex        =   19
  445.          Top             =   2760
  446.          Width           =   540
  447.       End
  448.       Begin VB.Label Label300 
  449.          AutoSize        =   -1  'True
  450.          BackStyle       =   0  'Transparent
  451.          Caption         =   "3>>>>"
  452.          BeginProperty Font 
  453.             Name            =   "MS Sans Serif"
  454.             Size            =   8.25
  455.             Charset         =   0
  456.             Weight          =   700
  457.             Underline       =   0   'False
  458.             Italic          =   0   'False
  459.             Strikethrough   =   0   'False
  460.          EndProperty
  461.          Height          =   195
  462.          Left            =   600
  463.          TabIndex        =   18
  464.          Top             =   2520
  465.          Width           =   540
  466.       End
  467.       Begin VB.Label Label200 
  468.          AutoSize        =   -1  'True
  469.          BackStyle       =   0  'Transparent
  470.          Caption         =   "2>>>>"
  471.          BeginProperty Font 
  472.             Name            =   "MS Sans Serif"
  473.             Size            =   8.25
  474.             Charset         =   0
  475.             Weight          =   700
  476.             Underline       =   0   'False
  477.             Italic          =   0   'False
  478.             Strikethrough   =   0   'False
  479.          EndProperty
  480.          Height          =   195
  481.          Left            =   600
  482.          TabIndex        =   17
  483.          Top             =   2280
  484.          Width           =   540
  485.       End
  486.       Begin VB.Label Label100 
  487.          AutoSize        =   -1  'True
  488.          BackStyle       =   0  'Transparent
  489.          Caption         =   "1>>>>"
  490.          BeginProperty Font 
  491.             Name            =   "MS Sans Serif"
  492.             Size            =   8.25
  493.             Charset         =   0
  494.             Weight          =   700
  495.             Underline       =   0   'False
  496.             Italic          =   0   'False
  497.             Strikethrough   =   0   'False
  498.          EndProperty
  499.          Height          =   195
  500.          Left            =   600
  501.          TabIndex        =   16
  502.          Top             =   2040
  503.          Width           =   540
  504.       End
  505.       Begin VB.Label text1 
  506.          AutoSize        =   -1  'True
  507.          Caption         =   "No Program"
  508.          BeginProperty Font 
  509.             Name            =   "MS Sans Serif"
  510.             Size            =   8.25
  511.             Charset         =   0
  512.             Weight          =   700
  513.             Underline       =   0   'False
  514.             Italic          =   0   'False
  515.             Strikethrough   =   0   'False
  516.          EndProperty
  517.          Height          =   195
  518.          Left            =   1440
  519.          TabIndex        =   15
  520.          Top             =   2040
  521.          Width           =   1005
  522.       End
  523.       Begin VB.Label text2 
  524.          AutoSize        =   -1  'True
  525.          Caption         =   "No Program"
  526.          BeginProperty Font 
  527.             Name            =   "MS Sans Serif"
  528.             Size            =   8.25
  529.             Charset         =   0
  530.             Weight          =   700
  531.             Underline       =   0   'False
  532.             Italic          =   0   'False
  533.             Strikethrough   =   0   'False
  534.          EndProperty
  535.          Height          =   195
  536.          Left            =   1440
  537.          TabIndex        =   14
  538.          Top             =   2280
  539.          Width           =   1005
  540.       End
  541.       Begin VB.Label text3 
  542.          AutoSize        =   -1  'True
  543.          Caption         =   "No Program"
  544.          BeginProperty Font 
  545.             Name            =   "MS Sans Serif"
  546.             Size            =   8.25
  547.             Charset         =   0
  548.             Weight          =   700
  549.             Underline       =   0   'False
  550.             Italic          =   0   'False
  551.             Strikethrough   =   0   'False
  552.          EndProperty
  553.          Height          =   195
  554.          Left            =   1440
  555.          TabIndex        =   13
  556.          Top             =   2520
  557.          Width           =   1005
  558.       End
  559.       Begin VB.Label text4 
  560.          AutoSize        =   -1  'True
  561.          Caption         =   "No Program"
  562.          BeginProperty Font 
  563.             Name            =   "MS Sans Serif"
  564.             Size            =   8.25
  565.             Charset         =   0
  566.             Weight          =   700
  567.             Underline       =   0   'False
  568.             Italic          =   0   'False
  569.             Strikethrough   =   0   'False
  570.          EndProperty
  571.          Height          =   195
  572.          Left            =   1440
  573.          TabIndex        =   12
  574.          Top             =   2760
  575.          Width           =   1005
  576.       End
  577.       Begin VB.Label text5 
  578.          AutoSize        =   -1  'True
  579.          Caption         =   "No Program"
  580.          BeginProperty Font 
  581.             Name            =   "MS Sans Serif"
  582.             Size            =   8.25
  583.             Charset         =   0
  584.             Weight          =   700
  585.             Underline       =   0   'False
  586.             Italic          =   0   'False
  587.             Strikethrough   =   0   'False
  588.          EndProperty
  589.          Height          =   195
  590.          Left            =   1440
  591.          TabIndex        =   11
  592.          Top             =   3000
  593.          Width           =   1005
  594.       End
  595.       Begin VB.Label text6 
  596.          AutoSize        =   -1  'True
  597.          Caption         =   "No Program"
  598.          BeginProperty Font 
  599.             Name            =   "MS Sans Serif"
  600.             Size            =   8.25
  601.             Charset         =   0
  602.             Weight          =   700
  603.             Underline       =   0   'False
  604.             Italic          =   0   'False
  605.             Strikethrough   =   0   'False
  606.          EndProperty
  607.          Height          =   195
  608.          Left            =   1440
  609.          TabIndex        =   10
  610.          Top             =   3240
  611.          Width           =   1005
  612.       End
  613.       Begin VB.Label text7 
  614.          AutoSize        =   -1  'True
  615.          Caption         =   "No Program"
  616.          BeginProperty Font 
  617.             Name            =   "MS Sans Serif"
  618.             Size            =   8.25
  619.             Charset         =   0
  620.             Weight          =   700
  621.             Underline       =   0   'False
  622.             Italic          =   0   'False
  623.             Strikethrough   =   0   'False
  624.          EndProperty
  625.          Height          =   195
  626.          Left            =   1440
  627.          TabIndex        =   9
  628.          Top             =   3480
  629.          Width           =   1005
  630.       End
  631.       Begin VB.Label text8 
  632.          AutoSize        =   -1  'True
  633.          Caption         =   "No Program"
  634.          BeginProperty Font 
  635.             Name            =   "MS Sans Serif"
  636.             Size            =   8.25
  637.             Charset         =   0
  638.             Weight          =   700
  639.             Underline       =   0   'False
  640.             Italic          =   0   'False
  641.             Strikethrough   =   0   'False
  642.          EndProperty
  643.          Height          =   195
  644.          Left            =   1440
  645.          TabIndex        =   8
  646.          Top             =   3720
  647.          Width           =   1005
  648.       End
  649.       Begin VB.Label text9 
  650.          AutoSize        =   -1  'True
  651.          Caption         =   "No Program"
  652.          BeginProperty Font 
  653.             Name            =   "MS Sans Serif"
  654.             Size            =   8.25
  655.             Charset         =   0
  656.             Weight          =   700
  657.             Underline       =   0   'False
  658.             Italic          =   0   'False
  659.             Strikethrough   =   0   'False
  660.          EndProperty
  661.          Height          =   195
  662.          Left            =   1440
  663.          TabIndex        =   7
  664.          Top             =   3960
  665.          Width           =   1005
  666.       End
  667.    End
  668.    Begin VB.CommandButton Command300 
  669.       Caption         =   "-"
  670.       BeginProperty Font 
  671.          Name            =   "MS Sans Serif"
  672.          Size            =   24
  673.          Charset         =   0
  674.          Weight          =   400
  675.          Underline       =   0   'False
  676.          Italic          =   0   'False
  677.          Strikethrough   =   0   'False
  678.       EndProperty
  679.       Height          =   375
  680.       Left            =   6840
  681.       TabIndex        =   5
  682.       Top             =   2400
  683.       Width           =   855
  684.    End
  685.    Begin VB.CommandButton Command200 
  686.       Caption         =   "+"
  687.       BeginProperty Font 
  688.          Name            =   "MS Sans Serif"
  689.          Size            =   13.5
  690.          Charset         =   0
  691.          Weight          =   700
  692.          Underline       =   0   'False
  693.          Italic          =   0   'False
  694.          Strikethrough   =   0   'False
  695.       EndProperty
  696.       Height          =   375
  697.       Left            =   6960
  698.       TabIndex        =   4
  699.       Top             =   3000
  700.       Width           =   735
  701.    End
  702.    Begin VB.TextBox Text100 
  703.       Height          =   285
  704.       Left            =   8880
  705.       TabIndex        =   3
  706.       Text            =   "10"
  707.       Top             =   5160
  708.       Width           =   1935
  709.    End
  710.    Begin VB.Timer tmrKey 
  711.       Left            =   7560
  712.       Top             =   5280
  713.    End
  714.    Begin MSComDlg.CommonDialog cmdlg 
  715.       Left            =   8280
  716.       Top             =   3840
  717.       _ExtentX        =   847
  718.       _ExtentY        =   847
  719.       _Version        =   393216
  720.       DefaultExt      =   "*.exe"
  721.       DialogTitle     =   "General File System"
  722.       Filter          =   "*.exe"
  723.    End
  724.    Begin ComctlLib.Slider HScroll3 
  725.       Height          =   375
  726.       Left            =   7320
  727.       TabIndex        =   0
  728.       Top             =   5760
  729.       Width           =   2295
  730.       _ExtentX        =   4048
  731.       _ExtentY        =   661
  732.       _Version        =   327682
  733.       LargeChange     =   1
  734.       Max             =   30
  735.    End
  736. Attribute VB_Name = "Form1"
  737. Attribute VB_GlobalNameSpace = False
  738. Attribute VB_Creatable = False
  739. Attribute VB_PredeclaredId = True
  740. Attribute VB_Exposed = False
  741. Dim dx As New DirectX7
  742.  Dim di As DirectInput
  743.  Dim diDEV As DirectInputDevice
  744.  Dim diState As DIKEYBOARDSTATE
  745.  Dim iKeyCounter As Integer
  746. Dim dd As Integer
  747. Dim kk As Integer
  748. Dim tnc As Integer
  749. Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
  750. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  751.     Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
  752.  Const VK_F4 = &H73
  753. Private Const HIGHEST_VOLUME_SETTING = 30
  754. Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
  755. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
  756. Private Type VolumeSetting
  757.     LeftVol As Integer
  758.     RightVol As Integer
  759. End Type
  760.  Private Function lSetVolume(ByRef lLeftVol As Long, ByRef lRightVol As Long, lDeviceID As Long) As Long
  761.     Dim bReturnValue As Boolean
  762.     Dim Volume As VolumeSetting
  763.     Dim lAPIReturnVal As Long
  764.     Dim lBothVolumes As Long
  765.     Volume.LeftVol = nSigned(lLeftVol * 65535 / HIGHEST_VOLUME_SETTING)
  766.     Volume.RightVol = nSigned(lRightVol * 65535 / HIGHEST_VOLUME_SETTING)
  767.     lDataLen = Len(Volume)
  768.     CopyMemory lBothVolumes, Volume.LeftVol, lDataLen
  769.     lAPIReturnVal = waveOutSetVolume(lDeviceID, lBothVolumes)
  770.     lSetVolume = lAPIReturnVal
  771. End Function
  772. Private Function nSigned(ByVal lUnsignedInt As Long) As Integer
  773.    Dim nReturnVal As Integer
  774.    If lUnsignedInt > 65535 Or lUnsignedInt < 0 Then
  775.         MsgBox "Error in conversion from Unsigned to nSigned Integer"
  776.         nSignedInt = 0
  777.         Exit Function
  778.     End If
  779.         If lUnsignedInt > 32767 Then
  780.             nReturnVal = lUnsignedInt - 65536
  781.         Else
  782.             nReturnVal = lUnsignedInt
  783.        End If
  784.             nSigned = nReturnVal
  785.         End Function
  786.                              
  787. Private Sub Combo1_Click()
  788. On Error Resume Next
  789. Kill ("c:\windows\vol.txt")
  790. FileNumber = FreeFile
  791. filename = "c:\windows\vol.txt"
  792. Open filename For Append As #FileNumber
  793. Print #FileNumber, Combo1.Text
  794. Close #FileNumber
  795. Command2_Click
  796. HScroll3.Value = 15
  797. HScroll3_Change
  798. End Sub
  799. Private Sub Command1_Click()
  800. Form2.Show
  801. End Sub
  802. Private Sub Command101_Click()
  803. On Error GoTo error
  804. Dim X, Y As Variant
  805. kk = kk + 1
  806. If kk > (File1.ListCount - 1) Then
  807. kk = 0
  808. End If
  809. X = Drive1.ListCount
  810. Y = X + 65
  811. didar$ = Chr(Y)
  812. Drive1.Drive = didar$
  813. Dir1.Path = Drive1.Drive
  814. Dir1.Path = "\mpegav"
  815. File1.Path = Dir1.Path
  816. OLE1.Delete
  817. OLE1.CreateLink Dir1.Path & "\" & File1.List(kk)
  818. OLE1.DoVerb
  819. Exit Sub
  820. error:
  821. kk = 0
  822. End Sub
  823. Private Sub Command2_Click()
  824. Form1.Visible = False
  825. End Sub
  826. Private Sub Command200_Click()
  827. Text100.Text = Text100 + 1
  828. HScroll3.Value = Text100.Text
  829. Form4.Show
  830. Form4.Width = Text100.Text * 320
  831. HScroll3_Change
  832. End Sub
  833. Private Sub Command3_Click()
  834. On Error Resume Next
  835. MsgBox "Select '0 to 6' And Check Which Device Is Working For Your Volume Control.", 32, "Set Volume Control."
  836. i = Shell("c:\windows\sndvol32.exe", vbNormalFocus)
  837. Combo1.Visible = True
  838. Label7.Visible = True
  839. Command3.Visible = False
  840. End Sub
  841. Private Sub Command300_Click()
  842. Text100.Text = Text100 - 1
  843. HScroll3.Value = Text100.Text
  844. Form4.Show
  845. Form4.Width = Text100.Text * 320
  846. HScroll3_Change
  847. End Sub
  848. Private Sub Command301_Click()
  849. On Error GoTo error
  850. Dim X, Y As Variant
  851. kk = kk - 1
  852. If kk < 0 Then
  853. kk = 0
  854. End If
  855. X = Drive1.ListCount
  856. Y = X + 65
  857. didar$ = Chr(Y)
  858. Drive1.Drive = didar$
  859. Dir1.Path = Drive1.Drive
  860. Dir1.Path = "\mpegav"
  861. File1.Path = Dir1.Path
  862. OLE1.Delete
  863. OLE1.CreateLink Dir1.Path & "\" & File1.List(kk)
  864. OLE1.DoVerb
  865. Exit Sub
  866. error:
  867. kk = 0
  868. End Sub
  869. Private Sub Command303_Click()
  870. SendMCIString "set cd door open", True
  871. Timer2.Interval = 10000
  872. End Sub
  873. Private Sub Command304_Click()
  874. SendMCIString "set cd door closed", True
  875. Timer2.Interval = 7000
  876. kk = -1
  877. End Sub
  878. Private Sub Form_Load()
  879. Dim count As Variant
  880. On Error Resume Next
  881. kk = -1
  882. tnc = 0
  883. Set di = dx.DirectInputCreate()
  884.      If err.Number <> 0 Then
  885.          MsgBox "Error starting Direct Input, please make sure you have DirectX installed", vbApplicationModal
  886.          End
  887.      End If
  888.      Set diDEV = di.CreateDevice("GUID_SysKeyboard")
  889.      diDEV.SetCommonDataFormat DIFORMAT_KEYBOARD
  890.      diDEV.SetCooperativeLevel Me.hwnd, DISCL_BACKGROUND Or DISCL_NONEXCLUSIVE
  891.      Me.Show
  892.      diDEV.Acquire
  893.      tmrKey.Interval = 10
  894.      tmrKey.Enabled = True
  895.      
  896.      
  897.  Form1.Hide
  898.   SendMCIString "close all", False
  899. If (App.PrevInstance = True) Then
  900.     End
  901. End If
  902. fCDLoaded = False
  903. If (SendMCIString("open cdaudio alias cd wait shareable", True) = False) Then
  904.     End
  905. End If
  906. SendMCIString "set cd time format tmsf wait", True
  907.      
  908.      
  909.      
  910.      FileNumber = FreeFile
  911. filename = "c:\windows\1.txt"
  912. Open "c:\windows\1.txt" For Input As #FileNumber
  913. text1.Caption = Input(LOF(1), 1)
  914. Close #1
  915. count = (Len(text1.Caption) - 2)
  916. text1.Caption = Left(text1.Caption, count)
  917.   FileNumber = FreeFile
  918. filename = "c:\windows\vol.txt"
  919. Open "c:\windows\vol.txt" For Input As #FileNumber
  920. Combo1.Text = Input(LOF(1), 1)
  921. Close #1
  922. count = (Len(Combo1.Text) - 2)
  923. Combo1.Text = Left(Combo1.Text, count)
  924. If Combo1.Text = "" Then
  925. Combo1.Text = "0"
  926. End If
  927.  FileNumber = FreeFile
  928. filename = "c:\windows\2.txt"
  929. Open "c:\windows\2.txt" For Input As #FileNumber
  930. text2.Caption = Input(LOF(1), 1)
  931. Close #1
  932. count = (Len(text2.Caption) - 2)
  933. text2.Caption = Left(text2.Caption, count)
  934.  FileNumber = FreeFile
  935. filename = "c:\windows\3.txt"
  936. Open "c:\windows\3.txt" For Input As #FileNumber
  937. text3.Caption = Input(LOF(1), 1)
  938. Close #1
  939. count = (Len(text3.Caption) - 2)
  940. text3.Caption = Left(text3.Caption, count)
  941.  FileNumber = FreeFile
  942. filename = "c:\windows\4.txt"
  943. Open "c:\windows\4.txt" For Input As #FileNumber
  944. text4.Caption = Input(LOF(1), 1)
  945. Close #1
  946. count = (Len(text4.Caption) - 2)
  947. text4.Caption = Left(text4.Caption, count)
  948.  FileNumber = FreeFile
  949. filename = "c:\windows\5.txt"
  950. Open "c:\windows\5.txt" For Input As #FileNumber
  951. text5.Caption = Input(LOF(1), 1)
  952. Close #1
  953. count = (Len(text5.Caption) - 2)
  954. text5.Caption = Left(text5.Caption, count)
  955.  FileNumber = FreeFile
  956. filename = "c:\windows\6.txt"
  957. Open "c:\windows\6.txt" For Input As #FileNumber
  958. text6.Caption = Input(LOF(1), 1)
  959. Close #1
  960. count = (Len(text6.Caption) - 2)
  961. text6.Caption = Left(text6.Caption, count)
  962.  FileNumber = FreeFile
  963. filename = "c:\windows\7.txt"
  964. Open "c:\windows\7.txt" For Input As #FileNumber
  965. text7.Caption = Input(LOF(1), 1)
  966. Close #1
  967. count = (Len(text7.Caption) - 2)
  968. text7.Caption = Left(text7.Caption, count)
  969.  FileNumber = FreeFile
  970. filename = "c:\windows\8.txt"
  971. Open "c:\windows\8.txt" For Input As #FileNumber
  972. text8.Caption = Input(LOF(1), 1)
  973. Close #1
  974. count = (Len(text8.Caption) - 2)
  975. text8.Caption = Left(text8.Caption, count)
  976.  FileNumber = FreeFile
  977. filename = "c:\windows\9.txt"
  978. Open "c:\windows\9.txt" For Input As #FileNumber
  979. text9.Caption = Input(LOF(1), 1)
  980. Close #1
  981. count = (Len(text9.Caption) - 2)
  982. text9.Caption = Left(text9.Caption, count)
  983.  FileNumber = FreeFile
  984. filename = "c:\windows\10.txt"
  985. Open "c:\windows\10.txt" For Input As #FileNumber
  986. Text10.Text = Input(LOF(1), 1)
  987. Close #1
  988. count = (Len(Text10.Text) - 2)
  989. Text10.Text = Left(Text10.Text, count)
  990. Exit Sub
  991. End Sub
  992. Private Sub Form_Unload(Cancel As Integer)
  993.  diDEV.Unacquire
  994. End Sub
  995. Private Sub Timer1_Timer()
  996. Form1.Visible = False
  997.  z = lSetVolume(Text100.Text, Text100.Text, Combo1.Text)
  998. Timer1.Interval = 0
  999. End Sub
  1000. Private Sub Timer2_Timer()
  1001. Dim X, Y As Variant
  1002. On Error GoTo err
  1003. If Timer2.Interval = 10000 Then
  1004. SendMCIString "set cd door closed", True
  1005. Timer2.Interval = 0
  1006. X = Drive1.ListCount
  1007. Y = X + 65
  1008. didar$ = Chr(Y)
  1009. Drive1.Drive = didar$
  1010. Dir1.Path = Drive1.Drive
  1011. Dir1.Path = "\mpegav"
  1012. Command101_Click
  1013. Timer2.Interval = 0
  1014. End If
  1015. Exit Sub
  1016. Timer2.Interval = 0
  1017. End Sub
  1018. Private Sub tmrKey_Timer()
  1019. On Error Resume Next
  1020.     diDEV.GetDeviceStateKeyboard diState
  1021.      For iKeyCounter = 0 To 255
  1022.          If diState.Key(iKeyCounter) <> 0 Then
  1023.          
  1024.          
  1025.          If iKeyCounter = 83 Then
  1026.   On Error Resume Next
  1027.  i = Shell("c:\windows\rundll32 amovie.ocx,RunDll", vbNormalFocus)
  1028. End If
  1029.    If iKeyCounter = 56 Then
  1030.    If Text10.Text = 1 Then
  1031.            Call keybd_event(VK_F4, 0, 0, 0)
  1032.     End If
  1033.     End If
  1034.      
  1035.          
  1036.                  
  1037.             
  1038. If iKeyCounter = 79 Then
  1039. OLE1.Delete
  1040. OLE1.CreateLink text1.Caption
  1041. OLE1.DoVerb
  1042. End If
  1043. If iKeyCounter = 69 Then
  1044. tnc = Text100.Text
  1045. HScroll3.Value = 0
  1046. HScroll3_Change
  1047. Text100.Text = tnc
  1048. End If
  1049.      
  1050. If iKeyCounter = 80 Then
  1051. OLE1.Delete
  1052. OLE1.CreateLink text2.Caption
  1053. OLE1.DoVerb
  1054. End If
  1055. If iKeyCounter = 67 Then
  1056. Form2.Show
  1057. End If
  1058. If iKeyCounter = 81 Then
  1059. OLE1.Delete
  1060. OLE1.CreateLink text3.Caption
  1061. OLE1.DoVerb
  1062. End If
  1063. If iKeyCounter = 75 Then
  1064.  OLE1.Delete
  1065. OLE1.CreateLink text4.Caption
  1066. OLE1.DoVerb
  1067. End If
  1068. If iKeyCounter = 76 Then
  1069.   OLE1.Delete
  1070. OLE1.CreateLink text5.Caption
  1071. OLE1.DoVerb
  1072. End If
  1073. If iKeyCounter = 77 Then
  1074.  OLE1.Delete
  1075. OLE1.CreateLink text6.Caption
  1076. OLE1.DoVerb
  1077. End If
  1078.          
  1079.   If iKeyCounter = 71 Then
  1080.   OLE1.Delete
  1081. OLE1.CreateLink text7.Caption
  1082. OLE1.DoVerb
  1083. End If
  1084.  If iKeyCounter = 72 Then
  1085.  OLE1.Delete
  1086. OLE1.CreateLink text8.Caption
  1087. OLE1.DoVerb
  1088. End If
  1089.  If iKeyCounter = 73 Then
  1090.  OLE1.Delete
  1091. OLE1.CreateLink text9.Caption
  1092. OLE1.DoVerb
  1093. End If
  1094.      
  1095.  If iKeyCounter = 78 Then
  1096.   Command200_Click
  1097.   End If
  1098.          
  1099.  If iKeyCounter = 74 Then
  1100.   Command300_Click
  1101.   End If
  1102.     If iKeyCounter = 156 Then
  1103.   Command301_Click
  1104.   End If
  1105.       
  1106.       
  1107.     If iKeyCounter = 68 Then
  1108.         tmrKey.Enabled = False
  1109.     End If
  1110.             
  1111.       
  1112.          
  1113.  If iKeyCounter = 87 Then
  1114.  Form5.Show
  1115.    End If
  1116.   If iKeyCounter = 88 Then
  1117.   i = Shell("c:\windows\rundll.exe user.exe,exitwindows", vbNormalFocus)
  1118.   Form5.Show
  1119.  Form5.Label1.Caption = "Shutdown"
  1120.    End If
  1121.          
  1122.          
  1123.             
  1124.  If iKeyCounter = 181 Then
  1125.   Command303_Click
  1126.   End If
  1127.       
  1128.               
  1129.  If iKeyCounter = 55 Then
  1130.   Command304_Click
  1131.   End If
  1132.   If iKeyCounter = 82 Then
  1133.   Command101_Click
  1134.   End If
  1135.             
  1136.          End If
  1137.      Next
  1138.      
  1139.      
  1140.      
  1141.      
  1142.      
  1143.      
  1144.      DoEvents
  1145. End Sub
  1146. Private Sub HScroll3_Change()
  1147. On Error Resume Next
  1148. z = lSetVolume(HScroll3.Value, HScroll3.Value, Combo1.Text)
  1149. Text100.Text = (HScroll3.Value)
  1150. End Sub
  1151. Private Function SendMCIString(cmd As String, fShowError As Boolean) As Boolean
  1152. Static rc As Long
  1153. Static errStr As String * 200
  1154. rc = mciSendString(cmd, 0, 0, hwnd)
  1155. If (fShowError And rc <> 0) Then
  1156.     mciGetErrorString rc, errStr, Len(errStr)
  1157.     MsgBox errStr
  1158. End If
  1159. SendMCIString = (rc = 0)
  1160. End Function
  1161.